home *** CD-ROM | disk | FTP | other *** search
/ USGS: National Coal Resou…s & Great Plains Regions / USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso / PROGRAM / ETC / ARCVIEW.PPS next >
Encoding:
Text File  |  1998-07-18  |  10.0 KB  |  331 lines
  1. %%BeginProcSet: ArcView_3.0 0 0
  2.  
  3. %***********************************************************************
  4. %
  5. %  Token Abreviations
  6. %
  7. %    PostScript Token       Abreviation
  8. %    ----------------       ---------
  9. %    add                    ad
  10. %    arc                    ar
  11. %    array                  ay
  12. %    astore                 as
  13. %    clip                   cl
  14. %    colorimage             ci
  15. %    concat                 cc
  16. %    concatmatrix           cmx
  17. %    copy                   cp
  18. %    currentdash            cd
  19. %    currentfile            cf
  20. %    currentlinewidth       cw
  21. %    curveto                c
  22. %    cvi                    cv
  23. %    cvn                    cn
  24. %    cvs                    cs
  25. %    cvx                    cx
  26. %    def                    df
  27. %    div                    dv
  28. %    dup                    dp
  29. %    exch                   xc
  30. %    exec                   ex
  31. %    false                  fa
  32. %    fill                   fl
  33. %    findfont               ff
  34. %    for                    fr
  35. %    get                    gt
  36. %    getinterval            gi
  37. %    grestore               gr
  38. %    gsave                  gs
  39. %    image                  ig
  40. %    imagemask              im
  41. %    index                  ix
  42. %    length                 ln
  43. %    lineto                 l 
  44. %    matrix                 mx
  45. %    moveto                 m 
  46. %    mul                    mu
  47. %    neg                    ng
  48. %    newpath                np
  49. %    pathbbox               pb
  50. %    pop                    pp
  51. %    put                    pt
  52. %    putinterval            pi
  53. %    readhexstring          rh
  54. %    repeat                 rp
  55. %    roll                   rl
  56. %    rotate                 rt
  57. %    scale                  sc
  58. %    scalefont              scf
  59. %    setcmykcolor           cmy
  60. %    setdash                sd
  61. %    setfont                sf
  62. %    setgray                gry
  63. %    setlinecap             lc
  64. %    setlinejoin            lj
  65. %    setlinewidth           lw
  66. %    setmiterlimit          ml
  67. %    setrgbcolor            rgb
  68. %    show                   sh
  69. %    string                 sg
  70. %    stroke                 st
  71. %    sub                    sb
  72. %    translate              tr
  73. %    true                   tu
  74. %
  75. %***********************************************************************
  76.  
  77. 512 dict begin
  78.  
  79. /bd{bind def}bind def
  80.  
  81. /ad{add}bd
  82. /ar{arc}bd
  83. /ay{array}bd
  84. /as{astore}bd
  85. /cl{clip}bd
  86. /ci{colorimage}bd
  87. /cc{concat}bd
  88. /cmx{concatmatrix}bd
  89. /cp{copy}bd
  90. /cd{currentdash}bd
  91. /cf{currentfile}bd
  92. /cw{currentlinewidth}bd
  93. /c{curveto}bd
  94. /cv{cvi}bd
  95. /cn{cvn}bd
  96. /cs{cvs}bd
  97. /cx{cvx}bd
  98. /df{def}bd
  99. /dv{div}bd
  100. /dp{dup}bd
  101. /xc{exch}bd
  102. /ex{exec}bd
  103. /fa{false}bd
  104. /fl{fill}bd
  105. /ff{findfont}bd
  106. /fr{for}bd
  107. /gt{get}bd
  108. /gi{getinterval}bd
  109. /gr{grestore}bd
  110. /gs{gsave}bd
  111. /ig{image}bd
  112. /im{imagemask}bd
  113. /ix{index}bd
  114. /ln{length}bd
  115. /l{lineto}bd
  116. /mx{matrix}bd
  117. /m{moveto}bd
  118. /mu{mul}bd
  119. /ng{neg}bd
  120. /np{newpath}bd
  121. /pb{pathbbox}bd
  122. /pp{pop}bd
  123. /pt{put}bd
  124. /pi{putinterval}bd
  125. /rh{readhexstring}bd
  126. /rp{repeat}bd
  127. /rl{roll}bd
  128. /rt{rotate}bd
  129. /sc{scale}bd
  130. /scf{scalefont}bd
  131. /cmy{setcmykcolor}bd
  132. /sd{setdash}bd
  133. /sf{setfont}bd
  134. /gry{setgray}bd
  135. /lc{setlinecap}bd
  136. /lj{setlinejoin}bd
  137. /lw{setlinewidth}bd
  138. /ml{setmiterlimit}bd
  139. /rgb{setrgbcolor}bd
  140. /sh{show}bd
  141. /sg{string}bd
  142. /st{stroke}bd
  143. /sb{sub}bd
  144. /tr{translate}bd
  145. /tu{true}bd
  146.  
  147. %***********************************************************************
  148. %
  149. %  Miscellaneous Convenience Operators
  150. %
  151. %    n1 n2 ... nn x Ds                 -  Define a line dash pattern
  152. %
  153. %      n   =  a given dash segment
  154. %      x   =  the number of dash segements
  155. %
  156. %    m InMx -> im                      -  Initialize a matrix
  157. %
  158. %      m   =  matrix to initialize
  159. %      im  =  initialized matrix
  160. %
  161. %    m tx ty Tr -> tm                  -  Translate a matrix
  162. %
  163. %      m   =  matrix to translate
  164. %      tx  =  x translation
  165. %      ty  =  y translation
  166. %      tm  =  translated matrix
  167. %
  168. %    m sx sy Sc -> sm                  -  Scale a matrix
  169. %
  170. %      m   =  matrix to scale
  171. %      sx  =  x scale
  172. %      sy  =  y scale
  173. %      sm  =  scaled matrix
  174. %
  175. %    m a Rt -> rm                      -  Rotate a matrix
  176. %
  177. %      m   =  matrix to scale
  178. %      a   =  angle
  179. %      rm  =  rotated matrix
  180. %
  181. %***********************************************************************
  182.  
  183. /.dsArray 16 ay df
  184. /Ds{.dsArray 0 3 -1 rl gi as 0 sd}bd
  185.  
  186. /.blankMtx mx df /.tempMtx mx df /.gfxMtx mx df
  187. /InMx{.blankMtx xc cp}bd
  188. /Tr{.tempMtx InMx tr xc dp 3 1 rl cmx}bd
  189. /Sc{.tempMtx InMx sc xc dp 3 1 rl cmx}bd
  190. /Rt{.tempMtx InMx rt xc dp 3 1 rl cmx}bd
  191.  
  192. %***********************************************************************
  193. %
  194. %  Color Convenience Operators
  195. %
  196. %    gryVec                            -  Enables gray vector model
  197. %      g Sg                            -  Set gray stroke intensity
  198. %      g Fg                            -  Set gray fill intensity
  199. %      g Bg                            -  Set gray background intensity
  200. %    rgbVec                            -  Enables RGB vector model
  201. %      r g b Sr                        -  Set RGB stroke color
  202. %      r g b Fr                        -  Set RGB fill color
  203. %      r g b Br                        -  Set RGB background color
  204. %    cmyVec                            -  Enables CMYK vector model
  205. %      c m y k Sc                      -  Set CMYK stroke color
  206. %      c m y k Fc                      -  Set CMYK fill color
  207. %      c m y k Bc                      -  Set CMYK background color
  208. %    S                                 -  Stroke the path
  209. %    F                                 -  Fill the path
  210. %    FS                                -  Fill the path then stroke it
  211. %    SH                                -  Show the text
  212. %    I                                 -  Image mask foreground
  213. %    i                                 -  Image mask background
  214. %
  215. %***********************************************************************
  216.  
  217. /gryVec{
  218.   /Sg{/.kS xc df}bd
  219.   /Fg{/.kF xc df}bd
  220.   /Bg{/.kB xc df}bd
  221.   /S{.kS gry st}bd/F{.kF gry fl}bd/SH{.kF gry sh}bd
  222.   /I{.kF gry im}bd/i{.kB gry im}bd
  223.   0 Sg 0 Fg 0 Bg}bd
  224. /rgbVec{
  225.   /Sr{/.bS xc df/.gS xc df/.rS xc df}bd
  226.   /Fr{/.bF xc df/.gF xc df/.rF xc df}bd
  227.   /Br{/.bB xc df/.gB xc df/.rB xc df}bd
  228.   /S{.rS .gS .bS rgb st}bd/F{.rF .gF .bF rgb fl}bd/SH{.rF .gF .bF rgb sh}bd
  229.   /I{.rF .gF .bF rgb im}bd/i{.rB .gB .bB rgb im}bd
  230.   0 0 0 Sr 0 0 0 Fr 0 0 0 Br}bd
  231. /cmyVec{
  232.   /Sc{/.kS xc df/.yS xc df/.mS xc df/.cS xc df}bd
  233.   /Fc{/.kF xc df/.yF xc df/.mF xc df/.cF xc df}bd
  234.   /Bc{/.kB xc df/.yB xc df/.mB xc df/.cB xc df}bd
  235.   /S{.cS .mS .yS .kS cmy st}bd/F{.cF .mF .yF .kF cmy fl}bd
  236.   /SH{.cF .mF .yF .kF cmy sh}bd
  237.   /I{.cF .mF .yF .kF cmy im}bd/i{.cB .mB .yB .kB cmy im}bd
  238.   0 0 0 1 Sc 0 0 0 1 Fc 0 0 0 1 Bc}bd
  239. /FS{gs F gr S}bd
  240.  
  241. %***********************************************************************
  242. %
  243. %  Path Construction Convenience Operators
  244. %
  245. %    lx ly mx my lS                    -  Single line stroke
  246. %    lxn lyn ... lx1 ly1 mx my n ls    -  Append lines to path (with move)
  247. %    lxn lyn ... lx1 ly1 n ll          -  Append lines to path (with no move)
  248. %    <args> lsS                        -  Same as 'ls' but stroke
  249. %    <args> llS                        -  Same as 'll' but stroke
  250. %    <args> lsF                        -  Same as 'ls' but fill
  251. %    <args> llF                        -  Same as 'll' but fill
  252. %    <args> lsFS                       -  Same as 'ls' but fill then stroke
  253. %    <args> llFS                       -  Same as 'll' but fill then stroke
  254. %
  255. %    x1 y1 x2 y2 r                     -  Append rectagle to path
  256. %    <args> rS                         -  Same as 'r' but stroke
  257. %    <args> rF                         -  Same as 'r' but fill
  258. %    <args> rFS                        -  Same as 'r' but fill then stroke
  259. %
  260. %    x y wd ht e                       -  Append ellipse to path 
  261. %    <args> eS                         -  Same as 'e' but stroke
  262. %    <args> eF                         -  Same as 'e' but fill
  263. %    <args> eFS                        -  Same as 'e' but fill then stroke
  264. %
  265. %***********************************************************************
  266.  
  267. /lS{m l S} bd
  268. /ls{3 1 rl m 1 sb{l}rp} bd
  269. /ll{{l}rp} bd
  270. /lsS{ls S}bd
  271. /llS{ll S}bd
  272. /lsF{ls F}bd
  273. /llF{ll F}bd
  274. /lsFS{ls gs F gr S}bd
  275. /llFS{ll gs F gr S}bd
  276.  
  277. /r{3 ix 3 ix m 1 ix 3 ix l 2 cp l 3 ix xc l pp l closepath}bd
  278. /rS{r S}bd
  279. /rF{r F}bd
  280. /rFS{r gs F gr S}bd
  281.  
  282. /e{2 dv xc 2 dv xc 2 ix 1 ix sb 3 ix 2 ix ad 5 ix 4 ix 1.32 mu sb
  283.   6 ix 5 ix 1.32 mu ad 7 -3 rl pp pp pp
  284.   4 ix 4 ix m dp 4 ix 1 ix 5 ix 8 ix 7 ix c 1 ix 3 ix 1 ix 6 ix 8 ix 8 ix c
  285.   5{pp}rp}bd
  286. /eS{e S}bd
  287. /eF{e F}bd
  288. /eFS{e gs F gr S}bd
  289.  
  290. %***********************************************************************
  291. %
  292. %  Tile fill operators
  293. %
  294. %    Defining a tile:
  295. %
  296. %    /_<nam> <bits> def
  297. %    /<nam> { <cols> <rows> { _<nam> } td } bd
  298. %
  299. %    Using a tile once a path has been created:
  300. %
  301. %    <enable?> fT                     -  Enable/disable tile foreground
  302. %    <enable?> bT                     -  Enable/disable tile background
  303. %    /<nam> <width> <height> T        -  Fill path with tile
  304. %    /<nam> <width> <height> TS       -  Fill path with tile then stroke
  305. %
  306. %***********************************************************************
  307.  
  308. /fT{/_fT xc df}bd
  309. /bT{/_bT xc df}bd
  310. tu fT fa bT
  311. /td{[3 ix 0 0 5 ix ng 0 7 ix]xc _bT{4 cp 4 2 rl fa 5 -2 rl i}if
  312.   _fT{4 cp 4 2 rl tu 5 -2 rl I}if 4{pp}rp}bd
  313. /T{gs cl pb np 4 -2 rl xc 5 ix dv cv 5 ix mu xc 4 ix dv cv 4 ix mu
  314.   2 cp tr 3 -1 rl xc sb 3 1 rl sb 3 ix dv cv 1 ad xc 2 ix dv cv 1 ad 4 2 rl sc
  315.   {gs dp{1 ix cx ex 1 0 tr}rp gr 0 1 tr}rp gr np pp pp}bd
  316. /TS{gs T gr S}bd
  317.  
  318. %***********************************************************************
  319. %
  320. %  Graphic Object Definition Procedure
  321. %
  322. %    /name{{ <graphics> } x y siz GfxObj}bd
  323. %    x y siz ang name
  324. %
  325. %***********************************************************************
  326.  
  327. /GfxObj{gs 3 1 rl .gfxMtx InMx 3 1 rl xc ng xc ng
  328.   Tr xc 1 xc dv dp Sc 3 -1 rl Rt 3 -1 rl dp Sc 4 -2 rl Tr cc ex gr}bd
  329.  
  330. %%EndProcSet
  331.